home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 05.zip
/
BS1 part 5
/
PDraw3.0.adf
/
pdraw_rex.lzh
/
ItemToFront.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-03-13
|
266b
|
18 lines
/*
Item To Front
Puts an item to the front of a list
*/
parse arg item, list
if item = '' then return(list)
stringpos = pos(item, list)
if stringpos ~= 0 then
do
list = delstr(list, stringpos, length(item) + 1)
list = item || '0a'x || list
end
return(list)